home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / games / imagepat.bas < prev    next >
BASIC Source File  |  1991-10-18  |  667b  |  27 lines
  1. 1000 '
  2. 1010 ' イメージファイト無敵
  3. 1020 '
  4. 1030 '
  5. 1040 CLS
  6. 1050 PRINT "＊＊＊イメージファイト":PRINT 
  7. 1060 PRINT "ディスクをＡドライブに入れて何かキーを押して下さい"
  8. 1070 WHILE INKEY$="":WEND
  9. 1080 '
  10. 1090 OPEN "R",#1,"a:(1)\IMAGE.EXP"
  11. 1100 FIELD #1,1 AS DT$
  12. 1110 READ NUM
  13. 1120 READ D$:OFST=VAL("&H"+D$)
  14. 1130 FOR J=1 TO NUM
  15. 1140   READ D$:DAT=VAL("&H"+D$)
  16. 1150   LSET DT$=CHR$(DAT MOD 256):PUT #1,OFST+1:OFST=OFST+1
  17. 1160 NEXT
  18. 1170 CLOSE:PRINT HEX$(OFST)
  19. 1180 END
  20. 1190 '
  21. 1200 DATA 35,F96D3
  22. 1210 DATA 83,C4,04
  23. 1220 DATA 66,C7,05,3E,3B,06,00,01,00
  24. 1230 DATA 66,C7,05,6E,3B,06,00,B4,00
  25. 1240 DATA 66,C7,05,AE,3B,06,00,B4,00
  26. 1250 DATA E9,2F,AE,FF,FF
  27.